home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_126481.txt < prev    next >
Text File  |  1990-08-14  |  13KB  |  675 lines
  1. -- card: 126481 from stack: in
  2. -- bmap block id: 127163
  3. -- flags: 4000
  4. -- background id: 14625
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   set hilite of card button id 5 to true
  9.   repeat with index = 6 to 12
  10.     set hilite of card button id index to false
  11.   end repeat
  12.   set hilite of card button id 13 to true
  13.   repeat with index = 14 to 20
  14.     set hilite of card button id index to false
  15.   end repeat
  16.   repeat with index = 22 to 29
  17.     set hilite of card button id index to false
  18.   end repeat
  19.   put empty into card field "Alternate 1"
  20.   put empty into card field "Alternate 2"
  21.   set icon of card button "Link" to "Sm Unchecked Box"
  22. end closeCard
  23.  
  24. on groupThree
  25.   if not hilite of target then
  26.     repeat with index = 5 to 12
  27.       set hilite of card button id index to false
  28.     end repeat
  29.     set hilite of target to true
  30.   end if
  31. end groupThree
  32.  
  33. on groupFour
  34.   if not hilite of target then
  35.     repeat with index = 13 to 20
  36.       set hilite of card button id index to false
  37.     end repeat
  38.     set hilite of target to true
  39.   else
  40.     if hilite of card button id 22 then
  41.       put short name of target into card field "Alternate 1"
  42.     end if
  43.     if hilite of card button id 27 then
  44.       put short name of target into card field "Alternate 2"
  45.     end if
  46.   end if
  47. end groupFour
  48.  
  49. on groupFive
  50.   if not hilite of target then
  51.     repeat with index = 22 to 29
  52.       set hilite of card button id index to false
  53.     end repeat
  54.     set hilite of target to true
  55.   end if
  56. end groupFive
  57.  
  58.  
  59.  
  60. -- part 1 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=0 top=0 right=342 bottom=512
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 2 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=9 top=213 right=228 bottom=24
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 5068 / 5068
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Close
  86. ----- HyperTalk script -----
  87. on mouseDown
  88.   set icon of me to "Close Box Hi"
  89. end mouseDown
  90.  
  91. on mouseLeave
  92.   set icon of me to "Close Box"
  93. end mouseLeave
  94.  
  95. on mouseUp
  96.   set icon of me to "Close Box"
  97.   lock screen
  98.   pop card
  99.   go next
  100.   unlock screen
  101. end mouseUp
  102.  
  103.  
  104. -- part 3 (field)
  105. -- low flags: 01
  106. -- high flags: 0000
  107. -- rect: left=261 top=169 right=183 bottom=413
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 9
  113. -- style flags: 0
  114. -- line height: 12
  115. -- part name: Alternate 2
  116.  
  117.  
  118. -- part 4 (field)
  119. -- low flags: 01
  120. -- high flags: 0000
  121. -- rect: left=261 top=110 right=124 bottom=413
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 3
  126. -- text size: 9
  127. -- style flags: 0
  128. -- line height: 12
  129. -- part name: Alternate 1
  130.  
  131.  
  132. -- part 5 (button)
  133. -- low flags: 00
  134. -- high flags: 4000
  135. -- rect: left=71 top=110 right=122 bottom=242
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   groupThree
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 6 (button)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=71 top=122 right=134 bottom=242
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: 
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   groupThree
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 7 (button)
  171. -- low flags: 00
  172. -- high flags: 0000
  173. -- rect: left=71 top=134 right=146 bottom=242
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: 
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   groupThree
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 8 (button)
  190. -- low flags: 00
  191. -- high flags: 0000
  192. -- rect: left=71 top=146 right=158 bottom=242
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: 
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   groupThree
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 9 (button)
  209. -- low flags: 00
  210. -- high flags: 0000
  211. -- rect: left=71 top=158 right=170 bottom=242
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: 
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   groupThree
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 10 (button)
  228. -- low flags: 00
  229. -- high flags: 0000
  230. -- rect: left=71 top=170 right=182 bottom=242
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: 
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   groupThree
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 11 (button)
  247. -- low flags: 00
  248. -- high flags: 0000
  249. -- rect: left=71 top=182 right=194 bottom=242
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: 
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   groupThree
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 12 (button)
  266. -- low flags: 00
  267. -- high flags: 0000
  268. -- rect: left=71 top=194 right=206 bottom=242
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: 
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   groupThree
  280. end mouseUp
  281.  
  282.  
  283.  
  284. -- part 13 (button)
  285. -- low flags: 00
  286. -- high flags: 4000
  287. -- rect: left=3 top=244 right=256 bottom=492
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Computer Science 11 (E)
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   groupFour
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 14 (button)
  304. -- low flags: 00
  305. -- high flags: 0000
  306. -- rect: left=3 top=256 right=268 bottom=492
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Drafting 12 (E)
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   groupFour
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 15 (button)
  323. -- low flags: 00
  324. -- high flags: 0000
  325. -- rect: left=3 top=268 right=280 bottom=492
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: English 11 (E)
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   groupFour
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 16 (button)
  342. -- low flags: 00
  343. -- high flags: 0000
  344. -- rect: left=3 top=280 right=292 bottom=492
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: English 12 (R)
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   groupFour
  356. end mouseUp
  357.  
  358.  
  359.  
  360. -- part 17 (button)
  361. -- low flags: 00
  362. -- high flags: 0000
  363. -- rect: left=3 top=292 right=304 bottom=492
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 1
  367. -- font id: 0
  368. -- text size: 12
  369. -- style flags: 0
  370. -- line height: 16
  371. -- part name: French 11 (E)
  372. ----- HyperTalk script -----
  373. on mouseUp
  374.   groupFour
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 18 (button)
  380. -- low flags: 00
  381. -- high flags: 0000
  382. -- rect: left=3 top=304 right=316 bottom=492
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: French 12 (E)
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   groupFour
  394. end mouseUp
  395.  
  396.  
  397.  
  398. -- part 19 (button)
  399. -- low flags: 00
  400. -- high flags: 0000
  401. -- rect: left=3 top=316 right=328 bottom=492
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: Geography 12 (E)
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   groupFour
  413. end mouseUp
  414.  
  415.  
  416.  
  417. -- part 20 (button)
  418. -- low flags: 00
  419. -- high flags: 0000
  420. -- rect: left=3 top=328 right=340 bottom=492
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 1
  424. -- font id: 0
  425. -- text size: 12
  426. -- style flags: 0
  427. -- line height: 16
  428. -- part name: History 11 (E)
  429. ----- HyperTalk script -----
  430. on mouseUp
  431.   groupFour
  432. end mouseUp
  433.  
  434.  
  435.  
  436. -- part 21 (button)
  437. -- low flags: 00
  438. -- high flags: 0000
  439. -- rect: left=245 top=169 right=182 bottom=258
  440. -- title width / last selected line: 0
  441. -- icon id / first selected line: 5062 / 5062
  442. -- text alignment: 1
  443. -- font id: 3
  444. -- text size: 10
  445. -- style flags: 0
  446. -- line height: 13
  447. -- part name: Link
  448. ----- HyperTalk script -----
  449. on mouseUp shiftKey
  450.   if icon of target is "5063" then
  451.     set icon of target to "Sm Unchecked Box"
  452.   else set icon of target to "Sm Checked Box"
  453. end mouseUp
  454.  
  455.  
  456. -- part 22 (button)
  457. -- low flags: 00
  458. -- high flags: 0000
  459. -- rect: left=261 top=110 right=122 bottom=430
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 0
  464. -- text size: 12
  465. -- style flags: 0
  466. -- line height: 16
  467. -- part name: 
  468. ----- HyperTalk script -----
  469. on mouseUp
  470.   groupFive
  471. end mouseUp
  472.  
  473.  
  474.  
  475. -- part 23 (button)
  476. -- low flags: 00
  477. -- high flags: 0000
  478. -- rect: left=261 top=122 right=134 bottom=430
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 0 / 0
  481. -- text alignment: 1
  482. -- font id: 0
  483. -- text size: 12
  484. -- style flags: 0
  485. -- line height: 16
  486. -- part name: 
  487. ----- HyperTalk script -----
  488. on mouseUp
  489.   groupFive
  490. end mouseUp
  491.  
  492.  
  493.  
  494. -- part 24 (button)
  495. -- low flags: 00
  496. -- high flags: 0000
  497. -- rect: left=261 top=134 right=146 bottom=430
  498. -- title width / last selected line: 0
  499. -- icon id / first selected line: 0 / 0
  500. -- text alignment: 1
  501. -- font id: 0
  502. -- text size: 12
  503. -- style flags: 0
  504. -- line height: 16
  505. -- part name: 
  506. ----- HyperTalk script -----
  507. on mouseUp
  508.   groupFive
  509. end mouseUp
  510.  
  511.  
  512.  
  513. -- part 25 (button)
  514. -- low flags: 00
  515. -- high flags: 0000
  516. -- rect: left=261 top=146 right=158 bottom=430
  517. -- title width / last selected line: 0
  518. -- icon id / first selected line: 0 / 0
  519. -- text alignment: 1
  520. -- font id: 0
  521. -- text size: 12
  522. -- style flags: 0
  523. -- line height: 16
  524. -- part name: 
  525. ----- HyperTalk script -----
  526. on mouseUp
  527.   groupFive
  528. end mouseUp
  529.  
  530.  
  531.  
  532. -- part 26 (button)
  533. -- low flags: 00
  534. -- high flags: 0000
  535. -- rect: left=261 top=158 right=170 bottom=430
  536. -- title width / last selected line: 0
  537. -- icon id / first selected line: 0 / 0
  538. -- text alignment: 1
  539. -- font id: 0
  540. -- text size: 12
  541. -- style flags: 0
  542. -- line height: 16
  543. -- part name: 
  544. ----- HyperTalk script -----
  545. on mouseUp
  546.   groupFive
  547. end mouseUp
  548.  
  549.  
  550.  
  551. -- part 27 (button)
  552. -- low flags: 00
  553. -- high flags: 0000
  554. -- rect: left=261 top=170 right=182 bottom=430
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 1
  558. -- font id: 0
  559. -- text size: 12
  560. -- style flags: 0
  561. -- line height: 16
  562. -- part name: 
  563. ----- HyperTalk script -----
  564. on mouseUp
  565.   groupFive
  566. end mouseUp
  567.  
  568.  
  569.  
  570. -- part 28 (button)
  571. -- low flags: 00
  572. -- high flags: 0000
  573. -- rect: left=261 top=182 right=194 bottom=430
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 0 / 0
  576. -- text alignment: 1
  577. -- font id: 0
  578. -- text size: 12
  579. -- style flags: 0
  580. -- line height: 16
  581. -- part name: 
  582.  
  583.  
  584. -- part 29 (button)
  585. -- low flags: 00
  586. -- high flags: 0000
  587. -- rect: left=261 top=194 right=206 bottom=430
  588. -- title width / last selected line: 0
  589. -- icon id / first selected line: 0 / 0
  590. -- text alignment: 1
  591. -- font id: 0
  592. -- text size: 12
  593. -- style flags: 0
  594. -- line height: 16
  595. -- part name: 
  596.  
  597.  
  598. -- part contents for background part 19
  599. ----- text -----
  600. 12
  601. 12
  602. 12
  603. 12
  604. 12
  605. 11
  606. 12
  607. 12
  608.  
  609. -- part contents for background part 20
  610. ----- text -----
  611. 47
  612. 80
  613. 53
  614. 54
  615. 52
  616. 102
  617. 48
  618. 13
  619.  
  620. -- part contents for background part 21
  621. ----- text -----
  622. Abrosimoff, Michael John
  623. Adams, Bryan
  624. Alexander, Rick
  625.  Alexander, Susan
  626. Allsop, Blair M.
  627. Azimov, Isaac
  628.  Barisoff, Larissa
  629. Bunyan, Paul
  630.  
  631.  
  632.  
  633. -- part contents for background part 22
  634. ----- text -----
  635. Industrial
  636. Academic
  637. Academic
  638. Academic
  639. Academic
  640. Academic
  641. Academic
  642. Commercial
  643.  
  644. -- part contents for background part 23
  645. ----- text -----
  646. 0.0
  647. 0.0
  648. 0.0
  649. 0.0
  650. 0.0
  651. 0.0
  652. 0.0
  653. 0.0
  654.  
  655. -- part contents for background part 24
  656. ----- text -----
  657. 0.0
  658. 0.0
  659. 0.0
  660. 0.0
  661. 0.0
  662. 0.0
  663. 0.0
  664. 0.0
  665.  
  666. -- part contents for background part 25
  667. ----- text -----
  668. 12.0
  669. 12.0
  670. 12.0
  671. 12.0
  672. 12.0
  673. 12.0
  674. 12.0
  675. 12.0